This forum is closed to new posts and
responses. Individual names altered for privacy purposes. The information contained in this website is provided for informational purposes only and should not be construed as a forum for customer support requests. Any customer support requests should be directed to the official HCL customer support channels below:
An alternative is to remove the formula you've put in the folder, and add code to the Memo form instead.
This should work regardless of where an email is opened from.
In the Notes 8 mail design the main form title is "Message" and the alias is "Memo".
The Queryopen event in that form contains a bunch of LotusScript which has to stay there, so to achieve this change you need to add more LotusScript.
In the default version, the first two lines of the Queryopen event look like this:
Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
If source.InPreviewPane Then Exit Sub
I've added some code to my mail file that mimics the behaviour of Eudora (another type of email software, in case you're not familiar with it).
You should paste the following code immediately after the first line of the event and before the second line:
Dim doc As NotesDocument
Dim res%
If Not(Source.IsNewDoc) Then
Set doc=Source.Document
If (doc.ReturnReceipt(0)="1") And (Cstr(doc.DeliveredDate(0))<>"") Then
res=Msgbox("The sender has requested notification that you have seen this message." _
+Chr(13)+"Do you wish to send the notification?",35,"Return Receipt")
If res=IDCANCEL Then
Continue=False
Exit Sub
End If
If res=IDNO Then
doc.ReturnReceipt="0"
doc.Save False,False
End If
End If
End If
Then save and close the form and you're done.
One problem with this approach is that, since I've only done it on the Memo form, it only works for original messages; it does not work for replies. That should be easily solved by adding the same code to the Reply form.
Feedback response number SLES7E9AW9 created by ~George Umboosicheketsi on 05/02/2008
Alternative: modify Queryopen in the Memo form
Return to top
. . . . . . . . . . . . Alternative: modify Queryopen in th... (~Bella Zenfooma... 2.May.08) 
